home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / mobile / fma-2.0-stable-setup.exe / {app} / sframework / plugins / SmsTextLog.vbs-disabled < prev    next >
Encoding:
Text File  |  2005-01-05  |  1.6 KB  |  47 lines
  1. '-------------Save as a plugin and it will write the SMS to txt file---------
  2.  
  3. 'Credit where credit due. ie none to me (orac) as copied, changed and messed around for hours just to get it to work
  4.  
  5. Class SmsTextLog
  6.         
  7.         Private m_Self
  8.         Private m_WinampState
  9.         
  10.         'Some info about the plugin
  11.         Public Property Get SHOWABLE() 'Do I have a menu?
  12.         SHOWABLE = False
  13.         End Property
  14.         Public Property Get TITLE() 'What's my name?
  15.                 TITLE = "On SMS Write Log"
  16.         End Property
  17.         Public Property Get DESCRIPTION() 'What's my purpose?
  18.                 DESCRIPTION = "This will Append the new SMS to File"
  19.         End Property
  20.         Public Property Get AUTHOR() 'Who created me?
  21.                 AUTHOR = "orac"
  22.         End Property
  23.         Public Property Get URL() 'Were can I be found? Where can you get more information?
  24.                 URL = "No where yet"
  25.         End Property
  26.         
  27.         'Who am I?
  28.         Public Property Let Self(s)
  29.                 m_Self = s
  30.                                 
  31.                 EventManager.RegisterEvent "NewSMS", s & ".WriteSMS", Me
  32.         End Property
  33.         
  34.         Public Property Get Self()
  35.                 Self = m_Self
  36.         End Property
  37.         
  38.         Sub WriteSMS(S, T)
  39.                 Debug.DebugMsg "Saving NewSMS to file " & "C:\SMSReceipt.txt"
  40.                 Dim File, text
  41.                 text = T & " , " & S & " , " & Now
  42.                 Set File = Fso.OpenTextFile("C:\SMSReceipt.txt", 8, True)
  43.                 File.WriteLine text
  44.                 File.Close
  45.         End Sub
  46.     
  47. End Class